﻿
Public Class Card
    Private myValue As CardValue
    Private mySuit As Suite

    Public ReadOnly Property Value() As CardValue
        Get
            Return myValue
        End Get
    End Property

    Public ReadOnly Property Suite() As Suite
        Get
            Return mySuit
        End Get
    End Property


    Public Sub New(ByVal val As CardValue, ByVal suite As Suite)
        myValue = val
        mySuit = suite
    End Sub
End Class
